home *** CD-ROM | disk | FTP | other *** search
/ Software Explosion / Software Explosion (Fore-Matt Home Computing)(1996).iso / system / parbench31.lha / ParBENCH / ParNET.Install < prev    next >
Text File  |  1993-02-10  |  4KB  |  162 lines
  1. ; This is my first attempt at using the CBM Installer program
  2. ; 12-16-92 1:43pm Wed
  3. ; ⌐1992 Vernon Graner all rights reserved
  4.  
  5. (welcome (message "\nNOTICE 1:\nThis installer script will NOT work if you booted from this floppy!")
  6.      (message "\nNOTICE 2:\nIf you chose NOVICE user the system assumes Amiga-CDTV Install!")
  7. )
  8. (transcript "ParBENCH installation on  \"SYS:ParNET\"...")        ;Begin to hate
  9.                                     ;parenthesis..
  10. (complete 0)
  11. (set package                                ;Begin set
  12.     (askchoice                            ;begin ask
  13.         (Prompt "What package do you want installed now?")    ;
  14.         (help "Amiga to CDTV installs just the files for the Hypermedia Concepts CDROM. Amiga to Amiga installs all the files needed to communicate betweeen 2 Amigas. Both is simply.. Both! :)")
  15.         (choices "Amiga to CDTV" "Amiga to Amiga" "Both")    ;
  16.         (default 0 )                        ;
  17.     )                                ;end ask
  18. )                                    ;end set
  19.  
  20.  
  21. (makedir "SYS:ParNET"                            ;Begin Makedir
  22.     (prompt "Making the directory \"SYS:ParNET\"")            ;
  23.     (help @makedir-help)                        ;
  24.     (infos)                                ;
  25.     (confirm)                            ;
  26. )                                    ;End Makedir
  27.  
  28.  
  29.  
  30. (complete 10)
  31.  
  32. ; Ok Ok, so its really clumsy but I dont know how to do multiple
  33. ; operators without it shifting to ELSE!!! Grrr...
  34.  
  35. (if (= package 2)                            ;Begin if 
  36.     (copyfiles                            ;Begin Copy
  37.         (Prompt "Copying Both packages to ParNET Drawer.")    ;
  38.         (help @copyfiles-help)                    ;
  39.         (source "ParNET")                ;
  40.         (dest "SYS:ParNET/")                    ;
  41.         (files)                            ;
  42.         (infos)                            ;
  43.         (pattern "boot.#?")
  44.     )                                ;end copy
  45. )                                    ;end if
  46. (if (= package 2)                            ;Begin if 
  47.     (copyfiles                            ;Begin Copy
  48.         (Prompt "Copying Both packages to ParNET Drawer.")    ;
  49.         (help @copyfiles-help)                    ;
  50.         (source "ParNET")                ;
  51.         (dest "SYS:ParNET/")                    ;
  52.         (infos)                            ;
  53.         (pattern "CDTV.Connect")                    ;
  54.     )                                ;End copy
  55. )                                    ;end if
  56.  
  57. (if (= package 1)                            ;Begin if 
  58.     (copyfiles                            ;Begin Copy
  59.         (Prompt "Copying Amiga-Amiga package to ParNET Drawer.");
  60.         (help @copyfiles-help)                    ;
  61.         (source "ParNET")                ;
  62.         (dest "SYS:ParNET/")                    ;
  63.         (files)                            ;
  64.         (infos)                            ;
  65.         (pattern "boot.#?")                    ;
  66.     )                                ;End copy
  67. )                                    ;end if
  68.  
  69. (if (= package 0)                            ;Begin if 
  70.     (copyfiles                            ;Begin Copy
  71.         (Prompt "Copying Amiga-CDTV Files to ParNET Drawer.")    ;
  72.         (help @copyfiles-help)                    ;
  73.         (source "ParNET")                ;
  74.         (dest "SYS:ParNET/")                    ;
  75.         (infos)                            ;
  76.         (pattern "CDTV.Connect")                    ;
  77.     )                                ;End copy
  78. )                                    ;end if
  79.  
  80. (complete 25)
  81. ; The following 3 files get copied no matter which package is chosen:
  82. (copyfiles                            ;Begin copy
  83.     (source "Parnet")                ;
  84.     (dest "SYS:ParNET/")                    ;
  85.     (infos)                            ;
  86.     (pattern "#?net#?")                    ;
  87. )                                ;End Copy
  88. (copyfiles                            ;Begin copy
  89.     (source "Parnet")                ;
  90.     (dest "SYS:ParNET/")                    ;
  91.     (infos)                            ;
  92.     (pattern "DefSysDisk")                    ;
  93. )                                ;End Copy
  94. (copyfiles                            ;Begin copy
  95.     (source "Parnet")                ;
  96.     (dest "SYS:ParNET/")                    ;
  97.     (pattern "node.rinfo")                    ;
  98. )                                ;End Copy
  99.  
  100.  
  101.  
  102. (complete 40)
  103. (copyfiles
  104.     (Prompt "Copying commands to your C: directory.")
  105.     (help @copyfiles-help)
  106.     (source "C/")
  107.     (dest "C:")
  108.     (pattern "#?net#?")
  109. ;    (Files)
  110.     (confirm)
  111. )
  112. (complete 60)
  113. (copyfiles
  114.     (prompt "Copying ParNET handlers to your L: directory.")
  115.     (help @copyfiles-help)
  116.     (source "l/NetPNet-handler")
  117.     (dest "L:")
  118.     (confirm)
  119. )
  120.  
  121. (complete 65)
  122. (copyfiles
  123.     (prompt "Copying PNET Keys mouse-handler to your L: directory.")
  124.     (help @copyfiles-help)
  125.     (source "l/mouse-handler")
  126.     (dest "L:")
  127.     (confirm)
  128. )
  129.  
  130. (complete 70)
  131. (copyfiles
  132.     (Prompt "Copying Drivelist to your S: directory.")
  133.     (help @copyfiles-help)
  134.     (source "S/")
  135.     (dest "S:")
  136.     (pattern "#?net#?")
  137.     (Files)
  138.     (confirm)
  139. )
  140.  
  141. (complete 80)
  142. (copyfiles
  143.     (Prompt "Copying Mountlists to your DEVS: directory.")
  144.     (help @copyfiles-help)
  145.     (source "Devs/")
  146.     (dest "DEVS:")
  147.     (pattern "Mountlist.Parnet.#?")
  148.     (Files)
  149.     (confirm)
  150. )
  151.  
  152. (complete 90)
  153. (copylib
  154.     (prompt "Copying ParNET.device to your DEVS: directory.")
  155.     (help @copylib-help)
  156.     (source "devs/parnet.device")
  157.     (dest "DEVS:")
  158.     (confirm)
  159. )
  160. (complete 100)
  161. (exit "ParBENCH Scripts ⌐1992 Vernon Graner All Rights Reserved")
  162.